|
|  Fan
|  Written by Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Fan"

  FLAGS  ClickFly AutoFly AnimateFly
  PACKS  1
  WIDTH  18 * CW
  HEIGHT CH + CH + 3 * COH + 12 * COH

  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 3
    FOUNDATION
      X 4 * CW + 3 * stack * CW 
      Y 0
      ID 2
    END
  END

  FOR stack = 0 TO 15
    STACK
      X stack * CW
      Y CH
      FIRST 13
      JOINOFFSET -1
      DRAGUPTO 1
      DEAL 3,3
      FLAGS ClickFly JoinSS__ AppendOneOnly
      ID 1
    END
  END

  FOR stack = 0 TO 1
    STACK
      X 16 * CW + stack * CW
      Y CH
      FIRST 13
      JOINOFFSET -1
      DRAGUPTO 1
      DEAL 2,2
      FLAGS ClickFly JoinSS__ AppendOneOnly
      ID 1
    END
  END

END
